home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / tboxptch.txt < prev    next >
Encoding:
Text File  |  1985-06-16  |  896 b   |  29 lines
  1. Patches to Turbo Toolbox Software
  2. *********************************
  3.  
  4. 13:33:45  2/20/1985
  5. -------------------
  6.  
  7. File        : ACCESS.BOX
  8. Location    : In the "CloseIndex" procedure
  9. Description :
  10.     The following code segment in the "CloseIndex" procedure:
  11.  
  12.         if Updated then
  13.         begin
  14.           TaPack(Page,IdxF.KeyL);
  15.           PutRec(IdxF.DataF,PageRef,Page);
  16.         end;
  17.  
  18.     Should be changed to read:
  19.  
  20.         if Updated then
  21.         begin
  22.           TaPack(Page,IdxF.KeyL);
  23.           PutRec(IdxF.DataF,PageRef,Page);
  24.           Updated := False;                { This line has been added }
  25.         end;
  26.  
  27.     (The comment was added by this programmer and is NOT required.)
  28. -----------------------------------------------------------------------------
  29.